<%Dim connSet conn = Server.CreateObject("ADODB.CONNECTION")db = "Provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("telephone.accdb")'response.write db'response.endconn.Open dbSet d=Server.CreateObject("Scripting.Dictionary")d.Add "fee_yhhm","用户号码"d.Add "fee_yjbf","月基本费"d.Add "fee_zzywf","增值业务费"d.Add "fee_bdhf","本地话费"d.Add "fee_xnwhf","虚拟网话费"d.Add "fee_chf","长话费"d.Add "fee_dxf","短信费"d.Add "fee_myf","漫游费"d.Add "fee_hlwsyf","互联网使用费"d.Add "fee_xxf","信息费"d.Add "fee_sjywf","数据业务费"d.Add "fee_wyzyf","网元租用费"d.Add "fee_yhf","优惠(补足)费"d.Add "fee_dsf","代收费"d.Add "fee_ywslf","业务受理费"d.Add "fee_qtf","其他费"d.Add "fee_hj","合计"%>